home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / The World of Computer Software.iso / ply15dat.zip / NOISE4.PI < prev    next >
Text File  |  1992-09-19  |  2KB  |  78 lines
  1. // Generic Polyray input File
  2. // Polyray input file: Alexander Enzmann
  3.  
  4. // Set up the camera
  5. viewpoint {
  6.    from <0, 0, -8>
  7.    at <0,0,0>
  8.    up <0,1,0>
  9.    angle 45
  10.    resolution 320, 160
  11.    aspect 2
  12.    }
  13.  
  14. background <0, 0, 0>
  15. light 0.7*white, <-15, 3, -20>
  16. light 0.7*white, < 15, 3, -20>
  17.  
  18. include "..\texture.inc"
  19.  
  20. // Simple color map texture
  21. define noise_texture0
  22. texture {
  23.    noise surface {
  24.       color white
  25.       position_fn position_plain
  26.       lookup_fn lookup_cos
  27.       normal bump_normal
  28.       turbulence 2
  29.       frequency 3
  30.       bump_scale 3
  31.       octaves 2
  32.       ambient 0.1
  33.       diffuse 0.5
  34.       specular 0.6
  35.       microfacet Reitz 10
  36.       color_map(
  37.          [0,   0.2, red,     orange]
  38.          [0.2, 0.3, orange,  blue]
  39.          [0.3, 0.5, blue,    skyblue]
  40.          [0.5, 0.7, skyblue, orange]
  41.          [0.7, 0.9, orange,  magenta]
  42.          [0.9, 1.0, magenta, red],
  43.          <1, 1, 1>)
  44.       }
  45.    scale <0.5, 0.5, 0.5>
  46.    }
  47.  
  48. define ripple_marble_texture
  49. texture {
  50.    noise surface {
  51.       color white
  52.       position_fn position_objectx
  53.       lookup_fn lookup_sawtooth
  54.       octaves 4
  55.       turbulence 3
  56.       normal ripple_normal
  57.       frequency 10
  58.       bump_scale 5
  59.       ambient 0.1
  60.       diffuse 0.5
  61.       specular 0.6
  62.       microfacet Reitz 10
  63.       color_map(
  64.          [0.0, 0.8, <1, 1, 1>, <0.6, 0.6, 0.6>]
  65.          [0.8, 1.0, <0.6, 0.6, 0.6>, <0.1, 0.1, 0.1>])
  66.       }
  67.    translate <-5, 0, 0>
  68.    }
  69.  
  70. object { sphere <0, 0, 0>, 2
  71.    noise_texture0
  72.    translate <-3, 0, 0>
  73.    }
  74. object { sphere <0, 0, 0>, 2
  75.    ripple_marble_texture
  76.    translate <3, 0, 0>
  77.    }
  78.